﻿Imports System
Imports System.Reflection

Namespace System.Workflow.Activities.Rules
    Friend Class RulePropertyExpressionInfo
        Inherits RuleExpressionInfo
        ' Methods
        Friend Sub New(ByVal pi As PropertyInfo, ByVal exprType As Type, ByVal needsParamsExpansion As Boolean)
            MyBase.New(exprType)
            Me.propertyInfo = pi
            Me.needsParamsExpansion = needsParamsExpansion
        End Sub


        ' Properties
        Friend ReadOnly Property NeedsParamsExpansion As Boolean
            Get
                Return Me.needsParamsExpansion
            End Get
        End Property

        Friend ReadOnly Property PropertyInfo As PropertyInfo
            Get
                Return Me.propertyInfo
            End Get
        End Property


        ' Fields
        Private needsParamsExpansion As Boolean
        Private propertyInfo As PropertyInfo
    End Class
End Namespace

